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)))))