--- a/ClassDescription.st	Mon Sep 05 04:52:39 2011 +0200
+++ b/ClassDescription.st	Mon Sep 05 04:57:12 2011 +0200
@@ -968,6 +968,28 @@
     "Modified: / 29.7.1998 / 12:13:44 / cg"
 !
 
+definitionWithoutPackage
+    "return an expression-string to define myself (but not the package)"
+
+    ^ String streamContents:[:s |
+        self theNonMetaclass
+            basicFileOutDefinitionOn:s
+            withNameSpace:false
+            withPackage:false
+    ]
+
+    "
+     Object definition
+     Point definition
+     Array definition
+     ByteArray definition
+     FloatArray definition
+     OpenGLConstantImporter definition
+    "
+
+    "Created: / 31-08-2011 / 09:26:09 / cg"
+!
+
 instVarAtOffset:index
     "return the name of the instance variable at index"
 
@@ -4131,11 +4153,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.217 2011-08-20 14:36:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.218 2011-09-05 02:57:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.217 2011-08-20 14:36:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.218 2011-09-05 02:57:12 cg Exp $'
 ! !
 
 ClassDescription initialize!