--- a/ClassChange.st	Wed Jun 18 20:57:40 2003 +0200
+++ b/ClassChange.st	Wed Jun 18 23:29:13 2003 +0200
@@ -232,16 +232,19 @@
 !
 
 nameSpaceForVWNamespace:ns class:className ifAbsent:default
+    "map the namespace for a given class"
+
     ns = 'Core' ifTrue:[^ 'Smalltalk'].
     ns = 'Kernel' ifTrue:[^ 'Smalltalk'].
     ns = 'Graphics' ifTrue:[^ 'Smalltalk'].
     ns = 'OS' ifTrue:[^ 'Smalltalk'].
     ns = 'Smalltalk' ifTrue:[^ 'Smalltalk'].
+    ns = 'UI' ifTrue:[^ 'Smalltalk'].
     ^ default value
 ! !
 
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.36 2003-06-18 15:44:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.37 2003-06-18 21:29:13 cg Exp $'
 ! !