--- a/Object.st	Fri Aug 01 00:32:08 1997 +0200
+++ b/Object.st	Fri Aug 01 00:33:40 1997 +0200
@@ -2665,6 +2665,14 @@
 		  ' (' , self class name , ') to integer-typed variable'
 !
 
+invalidCodeObject
+    "{ Pragma: +optSpace }"
+
+    self error:'not an executable code object'
+
+    "Created: 1.8.1997 / 00:16:44 / cg"
+!
+
 invalidMessage 
     "{ Pragma: +optSpace }"
 
@@ -6143,6 +6151,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.201 1997-07-31 15:47:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.202 1997-07-31 22:33:40 cg Exp $'
 ! !
 Object initialize!