# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1141842346 -3600
# Node ID 5aeeba42b052fcde218a9ace842c948df83a5a4f
# Parent  fded804fe4e8cd5dde29d30b9aadb6eb5e6deb13
ST/V support

diff -r fded804fe4e8 -r 5aeeba42b052 UndefinedObject.st
--- a/UndefinedObject.st	Mon Mar 06 21:58:35 2006 +0100
+++ b/UndefinedObject.st	Wed Mar 08 19:25:46 2006 +0100
@@ -357,6 +357,18 @@
     "Modified: / 18.3.1999 / 18:29:58 / stefan"
 !
 
+subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool
+    "create a new class which has nil as superclass 
+     - i.e. traps into #doesNotUnderstand: for all of its messages."
+
+    ^ self 
+        subclass:nameSymbol 
+        instanceVariableNames:instVarNameString 
+        classVariableNames:classVarString 
+        poolDictionaries:pool
+        category:(Class defaultCategoryForSTVorVAGEClasses).
+!
+
 subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
     "create a new class which has nil as superclass 
      - i.e. traps into #doesNotUnderstand: for all of its messages."
@@ -683,7 +695,7 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.63 2006-03-06 08:57:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.64 2006-03-08 18:25:46 cg Exp $'
 ! !
 
 UndefinedObject initialize!