--- a/GenericException.st	Mon Aug 18 14:04:05 2003 +0200
+++ b/GenericException.st	Mon Aug 18 14:16:51 2003 +0200
@@ -997,9 +997,17 @@
     "create a new signal, using the receiver as a prototype and
      setting the parent of the new signal to the receiver."
 
-    ^ (Signal basicNew) mayProceed:proceed;
-                    notifierString:NotifierString;
-                            parent:self
+    |sig|
+
+    self isQuerySignal ifTrue:[
+        sig := QuerySignal basicNew
+    ] ifFalse:[
+        sig := Signal basicNew.
+    ].
+    ^ sig 
+        mayProceed:proceed;
+        notifierString:NotifierString;
+        parent:self
 
     "Created: / 23.7.1999 / 20:12:43 / stefan"
 ! !
@@ -2292,7 +2300,7 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.73 2003-05-19 09:11:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.74 2003-08-18 12:16:51 cg Exp $'
 ! !
 
 GenericException initialize!