--- a/ExecFunc.st	Mon Nov 04 22:00:49 1996 +0100
+++ b/ExecFunc.st	Mon Nov 04 22:47:56 1996 +0100
@@ -146,6 +146,8 @@
 !ExecutableFunction methodsFor:'error handling'!
 
 invalidCode
+    "{ Pragma: +optSpace }"
+
     "this error is triggered by the interpreter when something is wrong
      with the code object (any error not handled by Method-signals).
      In this case, the VM sends this to the bad method/block (the receiver).
@@ -153,6 +155,8 @@
      someone played around."
 
     ^ InvalidCodeSignal raise.
+
+    "Modified: 4.11.1996 / 22:47:21 / cg"
 ! !
 
 !ExecutableFunction methodsFor:'printing & storing'!
@@ -296,6 +300,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.27 1996-09-20 07:28:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.28 1996-11-04 21:47:56 cg Exp $'
 ! !
 ExecutableFunction initialize!

--- a/ExecutableFunction.st	Mon Nov 04 22:00:49 1996 +0100
+++ b/ExecutableFunction.st	Mon Nov 04 22:47:56 1996 +0100
@@ -146,6 +146,8 @@
 !ExecutableFunction methodsFor:'error handling'!
 
 invalidCode
+    "{ Pragma: +optSpace }"
+
     "this error is triggered by the interpreter when something is wrong
      with the code object (any error not handled by Method-signals).
      In this case, the VM sends this to the bad method/block (the receiver).
@@ -153,6 +155,8 @@
      someone played around."
 
     ^ InvalidCodeSignal raise.
+
+    "Modified: 4.11.1996 / 22:47:21 / cg"
 ! !
 
 !ExecutableFunction methodsFor:'printing & storing'!
@@ -296,6 +300,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.27 1996-09-20 07:28:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.28 1996-11-04 21:47:56 cg Exp $'
 ! !
 ExecutableFunction initialize!