Index: openacs-4/packages/file-storage/www/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v
diff -u -r1.9.4.1 -r1.9.4.2
--- openacs-4/packages/file-storage/www/move.tcl	15 Sep 2013 21:03:26 -0000	1.9.4.1
+++ openacs-4/packages/file-storage/www/move.tcl	3 Oct 2013 08:33:58 -0000	1.9.4.2
@@ -67,7 +67,7 @@
 	if {$copy_and_delete_p} {  
              # copy and delete file to move it
 	    db_transaction {
-		if {![string equal $type "folder"] } {  
+		if {$type ne "folder" } {  
 		    set file_rev_id [db_exec_plsql copy_item {}]  
 		    set file_id [content::revision::item_id -revision_id $file_rev_id]  
 		    callback fs::file_revision_new -package_id $package_id -file_id $file_id -parent_id $folder_id  
@@ -126,18 +126,18 @@
             }
         }
 
-    if {[empty_string_p $root_folder_id]} {
+    if {$root_folder_id eq ""} {
 	set root_folder_id [fs::get_root_folder]
     }
     set object_id $objects_to_move
     set cancel_url "[ad_conn url]?[ad_conn query]"
     db_multirow -extend {move_url level} folder_tree get_folder_tree "" {
 	# teadams 2003-08-22 - change level to level num to avoid 
 	# Oracle issue with key words.
-        if {[lsearch [concat $not_allowed_parents $not_allowed_children] $folder_id] ne "-1" || 
-            [lsearch $not_allowed_children $parent_id] ne "-1" } {
-            
-            if {[lsearch $not_allowed_children $parent_id] ne "-1"} {
+        if {$folder_in in [concat $not_allowed_parents $not_allowed_children]
+	    || $parent_id in $not_allowed_children
+	} {
+            if {$parent_id in $not_allowed_children} {
                 lappend not_allowed_children $folder_id
             }
             set move_url ""