@@ -431,11 +431,11 @@
 
 (define (edit-refdb path)
   ;; TEMPORARY, REMOVE IN 2014
   (if (not (file-exists? path)) ;; Create new 
       (begin
-	(print "INFO: Creating new txtdb at " path)
+	(print "\nINFO: Creating new txtdb at " path "\n")
 	(create-new-db path)))
   (if (not (file-exists? (conc path "/sxml/_sheets.sxml")))
       (begin
 	(print "ERROR: You appear to have the old file structure for txtdb. Please do the following and try again.")
 	(print)
@@ -450,10 +450,14 @@
 	(refdb-export path tmpf))
     (let ((pid (process-run "gnumeric" (list tmpf))))
       (process-wait pid)
       (import-gnumeric-file tmpf path))))
 
+;;======================================================================
+;; This routine dispaches or executes most of the commands for refdb
+;;======================================================================
+;;
 (define (process-action action-str . param)
   (let ((num-params (length param))
 	(action     (string->symbol action-str)))
     (cond
      ((eq? num-params 1)