--- a/Class.st	Tue Nov 27 19:03:05 2001 +0100
+++ b/Class.st	Tue Nov 27 19:05:57 2001 +0100
@@ -15,7 +15,7 @@
 ClassDescription subclass:#Class
 	instanceVariableNames:'name category classvars comment subclasses classFilename package
 		revision primitiveSpec environment signature hook'
-	classVariableNames:''
+	classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE'
 	poolDictionaries:''
 	category:'Kernel-Classes'
 !
@@ -270,10 +270,10 @@
         app notNil ifTrue:[
             cat := 'Applications-' , app name.
         ] ifFalse:[
-            cat := 'V''Age classes'.
+            cat := DefaultCategoryForVAGE ? 'V''Age classes'.
         ].
     ] ifFalse:[
-        cat := 'ST/V classes'.
+        cat := DefaultCategoryForSTV ? 'ST/V classes'.
     ].
 
     ^ cat
@@ -4695,5 +4695,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.406 2001-11-20 12:28:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.407 2001-11-27 18:05:57 cg Exp $'
 ! !