--- a/Signal.st	Wed Nov 30 10:19:49 2016 +0000
+++ b/Signal.st	Wed Nov 30 10:25:34 2016 +0000
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -322,7 +320,16 @@
     "answer a new exception object for this signal.
      Subclasses may redefine this method"
 
-    ^ Exception basicNew creator:self
+    |exception|
+
+    parent notNil ifTrue:[
+        "parent may be a class based signal"
+        exception := parent newException.
+    ] ifFalse:[
+        exception := Exception basicNew.
+    ].
+        
+    ^ exception creator:self
 
     "Created: / 26.2.1998 / 19:53:56 / stefan"
     "Modified: / 23.7.1999 / 13:41:00 / stefan"