--- a/BCompiler.st	Tue Jun 24 16:50:40 1997 +0200
+++ b/BCompiler.st	Wed Jun 25 12:15:41 1997 +0200
@@ -1279,12 +1279,13 @@
     (aSymbol == #rounded) ifTrue:[lineno := true. extraLiteral := aSymbol. extra := #specialSend. ^ 231].
 
     (aSymbol == #blockRef) ifTrue:[stackDelta := 0. ^ 238].
+    (aSymbol == #over) ifTrue:[stackDelta := 1. ^ 6].
 
     self error:'invalid code symbol'.
     errorFlag := #Error
 
     "Modified: 3.9.1995 / 12:58:47 / claus"
-    "Modified: 8.11.1996 / 14:09:04 / cg"
+    "Modified: 25.6.1997 / 11:47:26 / cg"
 !
 
 checkForCommonCode:symbolicCodeArray
@@ -2769,6 +2770,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.114 1997-06-04 10:37:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.115 1997-06-25 10:15:41 cg Exp $'
 ! !
 ByteCodeCompiler initialize!