Index: xotcl/library/actiweb/WebDocument.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/actiweb/WebDocument.xotcl	(.../WebDocument.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/actiweb/WebDocument.xotcl	(.../WebDocument.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-# $Id: WebDocument.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
+# $Id: WebDocument.xotcl,v 1.4 2006/09/14 06:36:02 neumann Exp $
 
 package provide xotcl::actiweb::webDocument 0.8
 
@@ -74,7 +74,7 @@
 
     Class FileDocumentClassFactory -superclass DocumentClassFactory
     FileDocumentClassFactory instproc getClass contentType {
-	if {[FileDocument info classchildren $contentType] == ""} {
+	if {[FileDocument info classchildren $contentType] eq ""} {
 	    Class ::FileDocument::${contentType} -superclass FileDocument
 	}
 	return ::FileDocument::${contentType}
@@ -108,7 +108,7 @@
 	set obj ""
 	if {[file isfile $filename]} {
 	    set type [Mime guessContentType $filename]
-	    #if {$type != "unknown/unknown"} {
+	    #if {$type ne "unknown/unknown"} {
 	    set fn [string trimleft $prefix/[file tail $filename] /]
 	    set class [[self]::clFactory getClass $type]
 	    set obj [[self]::objFactory create $fn $class $filename]
@@ -146,7 +146,7 @@
 		set exportedfn [string trimleft $prefix/[file tail $f] /]
 		if {[file isfile $f]} {
 		    set type [Mime guessContentType $f]
-		    if {[string match image/* $type]} {
+		    if {[string match "image/*" $type]} {
 			set class [[self]::clFactory getClass $type]
 			$class $exportedfn -init -attachFile $f
 			$place exportObjs $exportedfn