diff --git a/tools/lib.org b/tools/lib.org
index 5cb1802..b7c6fc5 100644
--- a/tools/lib.org
+++ b/tools/lib.org
@@ -11,8 +11,8 @@
 ** Function to get the value of a property.
  #+NAME: get_value
  #+begin_src elisp :var key="Type"
-(setq x (org-property-values key))
-(pop x)
+(org-with-point-at org-babel-current-src-block-location
+  (org-entry-get nil key t))
  #+end_src
 
  #+RESULTS: get_value