--- a/Metaclass.st	Fri Mar 19 08:18:32 1999 +0100
+++ b/Metaclass.st	Fri Mar 19 08:21:21 1999 +0100
@@ -628,7 +628,7 @@
             namespace := Smalltalk at:nsName ifAbsent:nil.
             namespace isNamespace ifFalse:[
                 namespace isNil ifTrue:[
-                    (Class createNameSpaceQuerySignal raise
+                    (Class createNameSpaceQuerySignal query
                     or:[(self 
                             confirm:('nonexistent namespace: `' , nsName , '''.\\Create ?') withCRs)])
                     ifFalse:[^ nil].
@@ -851,15 +851,15 @@
     "/ but prefer the old package
 
     oldClass isNil ifTrue:[
-        pkg := Class packageQuerySignal raise.
+        pkg := Class packageQuerySignal query.
     ] ifFalse:[
-"/        pkg := Class packageQuerySignal raise.
+"/        pkg := Class packageQuerySignal query.
 
         pkg := oldPkg := oldClass package.
         oldClass isLoaded ifTrue:[
             "/ if not autoloading, check if we are in another project-package
 
-            pkg := Class packageQuerySignal raise.
+            pkg := Class packageQuerySignal query.
             oldPkg ~= pkg ifTrue:[
                 newClass package:pkg.
 
@@ -958,7 +958,7 @@
         ].
 
 "/        oldClass isNil ifTrue:[
-"/            newClass package:(Class packageQuerySignal raise)
+"/            newClass package:(Class packageQuerySignal query)
 "/        ].
 
         oldClass notNil ifTrue:[
@@ -1431,8 +1431,8 @@
     ^ newClass
 
     "Created: / 26.5.1996 / 11:55:26 / cg"
-    "Modified: / 18.6.1996 / 14:19:39 / stefan"
     "Modified: / 20.6.1998 / 18:08:25 / cg"
+    "Modified: / 18.3.1999 / 18:23:31 / stefan"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1508,7 +1508,7 @@
 
     |names idx what doChecks answ|
 
-    doChecks := ConfirmationQuerySignal raise.
+    doChecks := ConfirmationQuerySignal query.
     doChecks == false ifTrue:[^ true].
 
     "let user confirm, if the classname is no good"
@@ -1519,7 +1519,7 @@
             what := 'class'
         ].
 
-        answ := Class classConventionViolationConfirmationQuerySignal raise.
+        answ := Class classConventionViolationConfirmationQuerySignal query.
         answ notNil ifTrue:[^ answ].
 
         (self confirm:(what , ' name ''' , className , 
@@ -1536,7 +1536,7 @@
 
     "let user confirm, if any instvarname is no good"
     (idx := names findFirst:[:word | word first isUppercase]) ~~ 0 ifTrue:[
-        answ := Class classConventionViolationConfirmationQuerySignal raise.
+        answ := Class classConventionViolationConfirmationQuerySignal query.
         answ notNil ifTrue:[^ answ].
 
         (self confirm:className , ': instance variable named ''' , (names at:idx) asText allBold , ''' 
@@ -1552,7 +1552,7 @@
 
     "let user confirm, if any classvarname is no good"
     (idx := names findFirst:[:word | word first isLowercase]) ~~ 0 ifTrue:[
-        answ := Class classConventionViolationConfirmationQuerySignal raise.
+        answ := Class classConventionViolationConfirmationQuerySignal query.
         answ notNil ifTrue:[^ answ].
 
         (self confirm:className , ': class variable named ''' , (names at:idx) asText allBold  , ''' 
@@ -1568,6 +1568,7 @@
 
     "Created: / 15.10.1996 / 11:56:38 / cg"
     "Modified: / 3.2.1999 / 11:24:52 / cg"
+    "Modified: / 18.3.1999 / 18:22:47 / stefan"
 !
 
 checkForAliasesOf:oldClass with:newClass
@@ -2017,6 +2018,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.140 1999-03-07 16:22:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.141 1999-03-19 07:21:21 stefan Exp $'
 ! !
 Metaclass initialize!