--- a/ExecutableFunction.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/ExecutableFunction.st	Fri Sep 05 12:29:15 2003 +0200
@@ -14,7 +14,7 @@
 
 Object subclass:#ExecutableFunction
 	instanceVariableNames:'code*'
-	classVariableNames:'ExecutionErrorSignal InvalidCodeSignal'
+	classVariableNames:''
 	poolDictionaries:''
 	category:'Kernel-Methods'
 !
@@ -68,36 +68,6 @@
 "
 ! !
 
-!ExecutableFunction class methodsFor:'initialization'!
-
-initialize
-    "create signals raised by various errors"
-
-    "uses class-based exceptions now (but remain backward compatible)"
-
-    InvalidCodeSignal isNil ifTrue:[
-"/        ExecutionErrorSignal := Error newSignalMayProceed:true.
-"/        ExecutionErrorSignal nameClass:self message:#executionErrorSignal.
-        ExecutionErrorSignal := ExecutionError.
-        ExecutionErrorSignal notifierString:'execution error'.
-
-"/        InvalidCodeSignal := ExecutionErrorSignal newSignalMayProceed:true.
-"/        InvalidCodeSignal nameClass:self message:#invalidCodeSignal.
-        InvalidCodeSignal := InvalidCodeError.
-        InvalidCodeSignal notifierString:'invalid code-object - not executable'.
-    ]
-
-    "Modified: 22.4.1996 / 16:34:13 / cg"
-! !
-
-!ExecutableFunction class methodsFor:'Signal constants'!
-
-executionErrorSignal
-    "return the parent-signal of all execution errors"
-
-    ^ ExecutionErrorSignal
-! !
-
 !ExecutableFunction class methodsFor:'queries'!
 
 isBuiltInClass
@@ -167,7 +137,7 @@
      Can only happen when the Compiler/runtime system is broken or
      someone played around."
 
-    ^ InvalidCodeSignal raise.
+    ^ InvalidCodeError raise.
 
     "Modified: 4.11.1996 / 22:47:21 / cg"
 ! !
@@ -437,7 +407,5 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.49 2003-05-07 14:05:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.50 2003-09-05 10:28:10 stefan Exp $'
 ! !
-
-ExecutableFunction initialize!