--- a/Filename.st	Fri Mar 05 20:04:38 2004 +0100
+++ b/Filename.st	Fri Mar 05 20:06:02 2004 +0100
@@ -1041,22 +1041,11 @@
 isBadCharacter:aCharacter
     "return true, if aCharacter is unallowed in a filename."
 
-    |ascii|
-
     (self ~~ ConcreteClass) ifTrue:[
-	^ ConcreteClass isBadCharacter:aCharacter
+        ^ ConcreteClass isBadCharacter:aCharacter
     ].
 
-    ascii := aCharacter asciiValue.
-    ascii < 32 ifTrue:[
-	^ true  "/ a control character
-    ].
-    ascii == 16rFF ifTrue:[
-	^ true  "/ delete character
-    ].
-    ^ false
-
-    "Modified: 8.9.1997 / 00:32:59 / cg"
+    ^ aCharacter isControlCharacter
 !
 
 isCaseSensitive
@@ -4953,7 +4942,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.275 2004-03-02 14:18:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.276 2004-03-05 19:06:02 stefan Exp $'
 ! !
 
 Filename initialize!