diff --git a/xo-procedure2/src/procedure2/ObjectPrimitives.cpp b/xo-procedure2/src/procedure2/ObjectPrimitives.cpp
index 4edd3873..d9d86f4a 100644
--- a/xo-procedure2/src/procedure2/ObjectPrimitives.cpp
+++ b/xo-procedure2/src/procedure2/ObjectPrimitives.cpp
@@ -33,9 +33,9 @@ namespace xo {
         xfer_cwd(obj<ARuntimeContext> rcx)
         {
             char buf[PATH_MAX];
-            ::getcwd(buf, sizeof(buf));
+            char * cwd = ::getcwd(buf, sizeof(buf));
 
-            return obj<AGCObject,DString>(DString::from_cstr(rcx.allocator(), buf));
+            return obj<AGCObject,DString>(DString::from_cstr(rcx.allocator(), cwd));
         }
 
         DPrimitive_gco_0 *