--- a/Object.st	Wed Oct 08 15:55:26 1997 +0200
+++ b/Object.st	Wed Oct 08 15:56:49 1997 +0200
@@ -177,7 +177,7 @@
 
         Signal initGenericSignal.
 
-        ErrorSignal := (Signal genericSignal) mayProceed:true.
+        ErrorSignal := Signal genericSignal newSignalMayProceed:true.
         ErrorSignal nameClass:self message:#errorSignal.
         ErrorSignal notifierString:'error encountered'.
 
@@ -6185,6 +6185,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.207 1997-10-08 11:03:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.208 1997-10-08 13:56:18 cg Exp $'
 ! !
 Object initialize!

--- 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!