add new suffixes

Util/StdPathname.icl

 implementation module StdPathname
 
-import StdArray, StdBool, StdChar, StdClass, StdInt, StdString
+import StdArray, StdBool, StdChar, StdClass, StdInt, StdString, StdList
 from StdSystem import dirseparator
 import Platform
 
@@ -41,7 +41,8 @@ RemoveSuffix path
 	where 
 		(found, position)	= FindLastChar '.' path last;
 		suf					= path % (position, last);
-		suffix				= suf == ".dcl" || suf == ".icl" || suf == ".abc" || suf == ".o" || suf == ".prj";
+//		suffix				= suf == ".dcl" || suf == ".icl" || suf == ".abc" || suf == ".o" || suf == ".obj" || suf == ".prj";
+		suffix				= isMember suf [".",".dcl",".icl",".abc",".o",".obj",".obj0",".obj1",".obj2",".xo",".cxo",".prj"];
 		last				= dec (size path);
 	
 RemoveSuffix` :: !Pathname -> String;