--- a/ObjectMemory.st	Mon Sep 06 16:58:20 1999 +0200
+++ b/ObjectMemory.st	Mon Sep 06 16:58:52 1999 +0200
@@ -4972,6 +4972,22 @@
     ^ name
 !
 
+package
+    "retrieve the modules packageId.
+     For now, this is constructed, but will be kept in the VM in later
+     versions."
+
+    "/ must fetch from my classes ...
+    classNames do:[:className |
+        |class|
+
+        (class := Smalltalk at:className) isBehavior ifTrue:[
+            ^ class package
+        ]
+    ].
+    ^ nil
+!
+
 pathName
     "return the modules pathName"
 
@@ -5016,6 +5032,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.181 1999-09-03 12:57:19 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.182 1999-09-06 14:58:52 cg Exp $'
 ! !
 ObjectMemory initialize!