diff --git a/aclpc/acl-frames.lisp b/aclpc/acl-frames.lisp
index 15281f148084ee48fbee6a8318609560adaec8d8..eba8dc9be431735ad9aedafbb8a8e1cae06be25b 100644
--- a/aclpc/acl-frames.lisp
+++ b/aclpc/acl-frames.lisp
@@ -2327,9 +2327,11 @@ in a second Lisp process.  This frame cannot be reused."
                  (IMallocFree (pointer-value :nat malloc) item-id-list-out)))))
       ;; Free the item-id-lists returned from pathname-to-item-id-list.
       (when root
-        (IMallocFree (pointer-value :nat malloc) root-item-id-list))
+        (IMallocFree (pointer-value :nat malloc)
+		     (pointer-value :nat root-item-id-list)))
       (when initial-directory
-        (IMallocFree (pointer-value :nat malloc) initial-directory-item-id-list))
+        (IMallocFree (pointer-value :nat malloc)
+		     (pointer-value :nat initial-directory-item-id-list)))
       ;;
       (IMallocRelease (pointer-value :nat malloc)))))