diff --git a/src/scheduler.c b/src/scheduler.c
index dd2dcfea..44166b31 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -2484,6 +2484,21 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
     if(!strcmp(argv[1],"test"))
     {
       cmd_found = 1;
+      /* {
+        xRect boundbox;
+        rebuild_selected_array();
+        calc_drawing_bbox(&boundbox, 1);
+        xctx->movelastsel = xctx->lastsel;
+        xctx->x1=boundbox.x1;
+        xctx->y_1=boundbox.y1;
+        xctx->rotatelocal=0;
+        xctx->move_flip = 1;
+        xctx->move_rot = 0;
+        xctx->ui_state|=STARTCOPY;
+        xctx->deltax = 5000.0;
+        xctx->deltay = 5000.0;
+        copy_objects(END);
+      } */
     }
    
     else if(!strcmp(argv[1],"toggle_colorscheme"))
diff --git a/src/token.c b/src/token.c
index 838ad082..a64b1382 100644
--- a/src/token.c
+++ b/src/token.c
@@ -108,13 +108,13 @@ static struct inst_hashentry *inst_hash_lookup(char *token, int value, int what,
   }
 }
 
-static struct inst_hashentry *inst_free_hash_entry(struct inst_hashentry *entry)
+static struct inst_hashentry *inst_hash_free_entry(struct inst_hashentry *entry)
 {
   struct inst_hashentry *tmp;
   while( entry ) {
     tmp = entry -> next;
     my_free(970, &(entry->token));
-    dbg(3, "inst_free_hash_entry(): removing entry %lu\n", (unsigned long)entry);
+    dbg(3, "inst_hash_free_entry(): removing entry %lu\n", (unsigned long)entry);
     my_free(971, &entry);
     entry = tmp;
   }
@@ -128,7 +128,7 @@ static void inst_hash_free(void) /* remove the whole hash table  */
  dbg(1, "inst_hash_free(): removing hash table\n");
  for(i=0;i<HASHSIZE;i++)
  {
-   xctx->inst_table[i] = inst_free_hash_entry( xctx->inst_table[i] );
+   xctx->inst_table[i] = inst_hash_free_entry( xctx->inst_table[i] );
  }
 }
 
diff --git a/xschem_library/xschem_simulator/simulate_ff.sch b/xschem_library/xschem_simulator/simulate_ff.sch
index da9a3354..47e34ecf 100644
--- a/xschem_library/xschem_simulator/simulate_ff.sch
+++ b/xschem_library/xschem_simulator/simulate_ff.sch
@@ -351,7 +351,7 @@ tclcommand="
     update ;# allow event loop to come in (update screen, user input etc) 
     incr count
     if \{$count>100 || $tclstop == 1\} break
-    puts \\"simulating: loop $count\\"
+    # puts \\"simulating: loop $count\\"
     xschem logic_set $logic_value
     after $duration
     set logic_value [expr !$logic_value]