diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 17fdbce401..076f0045f8 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,9 +1,14 @@
 + 0.87:
 
-- menu Command: quots look dumb
-- http://paste.lisp.org/display/30426
 - some module operations don't work on module-links
 - list operations: what if nothing is selected?
+- slider needs to be modelized
+- overhaul models, set-model* is crap
+- variable width word wrap
+- graphical crossref tool
+- http://paste.lisp.org/display/30426
+
+- menu Command: quots look dumb
 - top level window positioning on ms windows
 - crashes:
   - windows gcc issue
@@ -19,9 +24,6 @@
   - 10000 [ dup number>string ] map describe in the UI
   - available-modules
   - :trace
-- slider needs to be modelized
-- variable width word wrap
-- graphical crossref tool
 - auto-update browser and help when sources reload
 - mac intel: struct returns from objc methods
 - new windows don't always have focus, eg focus follows mouse
@@ -29,7 +31,6 @@
 - cross-word type inference
 - ui docs
 - some kind of declarative wiring framework for ui
-- overhaul models, set-model* is crap
 - compiled call traces:
   - should be independent of whenever the runtime was built with
     -fomit-frame-pointer or not
diff --git a/examples/mslug-talk.factor b/examples/mslug-talk.factor
index 75b0a2fd93..aa75b4234f 100644
--- a/examples/mslug-talk.factor
+++ b/examples/mslug-talk.factor
@@ -29,7 +29,7 @@ IN: mslug
         { table-content-style
             H{ { wrap-margin 700 } }
         }
-        { bullet "\u00b7" }
+        { bullet "\u00b7 " }
     } ;
 
 : $title ( string -- )
@@ -71,7 +71,7 @@ IN: mslug
     "Inspirations: Forth, Joy, Common Lisp, others..."
     "Powerful language features"
     "Interactive development"
-    "Why stack-based?"
+    "Stack-based"
     "Syntax: ``s-expressions''"
     "Code is data"
     { "Simple evaluation semantics; left to right:"
@@ -115,16 +115,16 @@ IN: mslug
         "H{ { \"carrot\" \"orange\" } }"
         "hash-union"
     }
-    "Prettyprinter -vs- inspector"
     "Option+h"
+    "Prettyprinter -vs- inspector"
 }
 { $slide "Data types - others"
     "Queues, graphs, splay trees, double linked lists, lazy lists..."
 }
 { $slide "Variables"
-    "Dynamic scope - WHY?"
+    "Dynamic scope"
     { $code "SYMBOL: foo" "5 foo set" "foo get ." }
-    { $code "SYMBOL: foo" "[ 6 foo set foo get . ] with-scope" }
+    { $code "SYMBOL: foo" "[ 6 foo set foo get ] with-scope" }
     "Dynamic scope can be analyzed statically:"
     { $code "SYMBOL: bar" "bar get sq foo set" }
 }
@@ -132,7 +132,7 @@ IN: mslug
     { "Stream-like sequence construction:"
     { $code
         ": print-name ( name -- )"
-        "    [ \"Greetings, \" % % \".\" ] \"\" make print ;"
+        "    [ \"Greetings, \" % % \".\" % ] \"\" make print ;"
     } }
     "Key factors:"
     { $code "%" }
@@ -140,7 +140,7 @@ IN: mslug
     { "Also, I/O:"
     { $code ": 100-bytes [ 100 read ] with-stream ;" "\"foo.txt\" <file-reader> 100-bytes" } }
 }
-{ $slide "Custom data types and polymorphism"
+{ $slide "Custom data types"
     { "Built-in classes: " { $link integer } ", " { $link array } ", " { $link hashtable } "..." }
     { "You can define your own:"
         { $code "TUPLE: rectangle w h ;" "TUPLE: circle r ;" }
@@ -200,7 +200,7 @@ IN: mslug
     "Layout:"
     { $code "{"
     "    { [ <label-control> ] f f @top }"
-    "    { [ ] f f @center }"
+    "    { [ <scroller> ] f f @center }"
     "} make-frame"
     }
     "Window:"