Index: openacs-4/packages/forums/www/moderate/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/move.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/forums/www/moderate/move.tcl	13 Nov 2017 14:31:27 -0000	1.9
+++ openacs-4/packages/forums/www/moderate/move.tcl	13 Nov 2017 15:35:09 -0000	1.10
@@ -37,7 +37,7 @@
 }
 
 #get the name of forum where the thread will be moved
-forums::get -forum_id $selected_forum -array forum
+forum::get -forum_id $selected_forum -array forum
 set name $forum(name)
 
 # Confirmed
@@ -69,15 +69,15 @@
         
     # update final forum: increase thread_count, approved_thread_count
     # and max_child_sortkey, update last_post
-    forums::get -forum_id $forum_id -array forum
+    forum::get -forum_id $forum_id -array forum
     set max_child_sortkey     $forum(max_child_sortkey)
     set thread_count          $forum(thread_count)
     set approved_thread_count $forum(approved_thread_count)
     db_dml forums::move_message::update_forums_final {}
     
     # update initial forum: decrease thread_count,
     # approved_thread_count and max_child_sortkey, update last_post
-    forums::get -forum_id $message(forum_id) -array forum
+    forum::get -forum_id $message(forum_id) -array forum
     set max_child_sortkey     $forum(max_child_sortkey)
     set thread_count          $forum(thread_count)
     set approved_thread_count $forum(approved_thread_count)