diff --git a/contrib/cont-responder/browser.factor b/contrib/cont-responder/browser.factor
index 8e884eef2c..66e8b8c2e4 100644
--- a/contrib/cont-responder/browser.factor
+++ b/contrib/cont-responder/browser.factor
@@ -44,6 +44,7 @@ USE: html
 USE: parser
 USE: errors
 USE: unparser
+USE: logging
 
 : <browser> ( allow-edit? vocab word -- )
   #! An object for storing the current browser
@@ -72,7 +73,7 @@ USE: unparser
   #! Write out the HTML for the list of words in a vocabulary.
   <select name= "words" style= "width: 200" size= "20" onchange= "document.forms.main.submit()" select> 
     words [ 
-      dup "current-word" get [ "" ] unless* str-compare 0 = [
+      word-name dup "current-word" get [ "" ] unless* str-compare 0 = [
       "<option selected>" write
      ] [
         "<option>" write
@@ -107,7 +108,7 @@ USE: unparser
 
 : write-vm-statistics ( -- )
   #! Display statistics about the JVM in use.
-  room unparse >r unparse r> 
+  room swap unparse >r unparse r> 
   <table> 
     <tr>  
       <td> "Free Memory" write </td>
@@ -148,9 +149,9 @@ USE: unparser
 
 : word-uses ( word -- list )
   #! Return a list of vocabularies that the given word uses.
-  worddef worddef>list flatten [ word? ] subset [
+  worddef>list flatten [ word? ] subset [
     word-vocabulary
-  ] inject ;
+  ] map ;
 
 : vocabulary-uses ( vocab -- list )
   #! Return a list of vocabularies that all words in a vocabulary
@@ -230,6 +231,6 @@ USE: unparser
 
 : browser-responder ( allow-edit? -- )
   #! Start the Smalltalk-like browser.
-  "browser" "" <browser> browse ;
+  "browser" f <browser> browse ;
 
 "browser" [ f browser-responder ] install-cont-responder
diff --git a/contrib/cont-responder/live-updater-responder.factor b/contrib/cont-responder/live-updater-responder.factor
index 95fde27650..5ff051e783 100644
--- a/contrib/cont-responder/live-updater-responder.factor
+++ b/contrib/cont-responder/live-updater-responder.factor
@@ -35,6 +35,7 @@ USE: stack
 USE: kernel
 USE: cont-utils
 USE: cont-responder
+USE: prettyprint
 
 : live-search-apropos-word ( string -- )
   #! Given a string that is a factor word, show the
@@ -59,7 +60,7 @@ USE: cont-responder
       <body> 
        [
          [ 
-           "millis" [ millis write ] "Display Server millis" live-anchor
+           "millis" [ millis prettyprint ] "Display Server millis" live-anchor
            <div id= "millis" div>  
              "The millisecond time from the server will appear here" write 
            </div>         
diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor
index f5bc3f68da..141f28c7d2 100644
--- a/contrib/cont-responder/todo.factor
+++ b/contrib/cont-responder/todo.factor
@@ -94,7 +94,7 @@ USE: url-encoding
 
 : store-todo ( <todo> filename -- )
   #! store the todo list in the given file.
-  <filebw> [ write-todo ] with-stream ;
+  <filecw> [ write-todo ] with-stream ;
 
 : read-todo ( -- <todo> )
   #! Read a todo list from the current input stream.
@@ -109,7 +109,7 @@ USE: url-encoding
   ] times ;
 
 : load-todo ( filename -- <todo> )
-  <filebr> [ read-todo ] with-stream ;  
+  <filecr> [ read-todo ] with-stream ;  
 
 : password-matches? ( password <todo> -- <todo> )
   #! Returns the <todo> if the password matches otherwise
