--- a/Class.st	Mon Jun 15 21:41:00 1998 +0200
+++ b/Class.st	Mon Jun 15 21:42:05 1998 +0200
@@ -304,46 +304,85 @@
 subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s
     "{ Pragma: +optSpace }"
 
-    "this method allows fileIn of ST/V classes 
+    "this method allows fileIn of ST/V and V'Age classes 
      (which seem to have no category)"
 
+    |cat app|
+
+    DefaultApplicationQuerySignal isHandled ifTrue:[
+        app := DefaultApplicationQuerySignal raise.
+        app notNil ifTrue:[
+            cat := 'Applications-' , app name.
+        ] ifFalse:[
+            cat := 'V''Age classes'.
+        ].
+    ] ifFalse:[
+        cat := 'ST/V classes'.
+    ].
+
     ^ self subclass:t 
-	   instanceVariableNames:f
-	   classVariableNames:d
-	   poolDictionaries:s
-	   category:'ST/V classes'
-
-    "Modified: 5.1.1997 / 19:59:30 / cg"
+           instanceVariableNames:f
+           classVariableNames:d
+           poolDictionaries:s
+           category:cat
+
+    "Modified: / 15.6.1998 / 21:31:34 / cg"
 !
 
 variableByteSubclass:t classVariableNames:d poolDictionaries:s
     "{ Pragma: +optSpace }"
 
-    "this method allows fileIn of ST/V variable byte classes 
+    "this method allows fileIn of ST/V and V'Age variable byte classes 
      (which seem to have no category and no instvars)"
 
+    |cat app|
+
+    DefaultApplicationQuerySignal isHandled ifTrue:[
+        app := DefaultApplicationQuerySignal raise.
+        app notNil ifTrue:[
+            cat := 'Applications-' , app name.
+        ] ifFalse:[
+            cat := 'V''Age classes'.
+        ]
+    ] ifFalse:[
+        cat := 'ST/V classes'.
+    ].
+
     ^ self variableByteSubclass:t 
-	   instanceVariableNames:''
-	   classVariableNames:d
-	   poolDictionaries:s
-	   category:'ST/V classes'
-
-    "Modified: 5.1.1997 / 19:59:33 / cg"
+           instanceVariableNames:''
+           classVariableNames:d
+           poolDictionaries:s
+           category:cat
+
+    "Modified: / 15.6.1998 / 21:31:38 / cg"
 !
 
 variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s
     "{ Pragma: +optSpace }"
 
-    "this method allows fileIn of ST/V variable pointer classes 
+    "this method allows fileIn of ST/V and V'Age variable pointer classes 
      (which seem to have no category)"
 
+    |cat app|
+
+    DefaultApplicationQuerySignal isHandled ifTrue:[
+        app := DefaultApplicationQuerySignal raise.
+        app notNil ifTrue:[
+            cat := 'Applications-' , app name.
+        ] ifFalse:[
+            cat := 'V''Age classes'.
+        ]
+    ] ifFalse:[
+        cat := 'ST/V classes'.
+    ].
+
     ^ self variableSubclass:t 
-	   instanceVariableNames:f
-	   classVariableNames:d
-	   poolDictionaries:s
-	   category:'ST/V classes'
-
-    "Modified: 5.1.1997 / 19:59:36 / cg"
+           instanceVariableNames:f
+           classVariableNames:d
+           poolDictionaries:s
+           category:cat
+
+    "Modified: / 15.6.1998 / 21:31:41 / cg"
 ! !
 
 !Class methodsFor:'ST80 compatibility'!
@@ -3832,5 +3871,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.313 1998-05-29 21:24:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.314 1998-06-15 19:42:05 cg Exp $'
 ! !