--- a/Signal.st	Wed Oct 08 15:55:26 1997 +0200
+++ b/Signal.st	Wed Oct 08 15:56:49 1997 +0200
@@ -144,7 +144,9 @@
 
     GenericSignal isNil ifTrue:[
         self initGenericSignal.
+    ].
 
+    NoHandlerSignal isNil ifTrue:[
         NoHandlerSignal := ErrorSignal newSignalMayProceed:true.
         NoHandlerSignal nameClass:self message:#noHandlerSignal.
         NoHandlerSignal notifierString:'unhandled exception'.
@@ -262,13 +264,8 @@
 parent:aSignal mayProceed:aBoolean
     "set the parent-signal and the mayProceed flag of the receiver."
 
-    parent isNil ifTrue:[
-        parent := aSignal.
-        mayProceed := aBoolean.
-        ^ self
-    ].
-    self error:'parent change not allowed'.
-    ^ self
+    parent := aSignal.
+    mayProceed := aBoolean.
 
     "Modified: 8.10.1997 / 11:56:11 / cg"
 ! !
@@ -287,7 +284,7 @@
     "create a new signal, using the receiver as a prototype and
      setting the parent of the new signal to the receiver."
 
-    ^ (self class basicNew) parent:self
+    ^ (self copy) parent:self
 
     "Modified: 8.10.1997 / 11:53:06 / cg"
 !
@@ -296,8 +293,7 @@
     "create a new signal, using the receiver as a prototype and
      setting the parent of the new signal to the receiver."
 
-    ^ (self class basicNew) 
-        parent:self mayProceed:aBoolean
+    ^ (self copy) parent:self mayProceed:aBoolean
 
     "Modified: 8.10.1997 / 11:57:13 / cg"
 ! !
@@ -747,6 +743,6 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.45 1997-10-08 11:28:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.46 1997-10-08 13:56:49 cg Exp $'
 ! !
 Signal initialize!