diff --git a/collects/embedded-gui/private/tabbable-text.ss b/collects/embedded-gui/private/tabbable-text.ss
index 36c133f4..3cef1f01 100644
--- a/collects/embedded-gui/private/tabbable-text.ss
+++ b/collects/embedded-gui/private/tabbable-text.ss
@@ -22,7 +22,7 @@
        [ahead void]
        [back void])
       
-      ;; get-keymaps (-> (listof keymap%))
+      #;(-> (listof keymap%))
       ;; the list of keymaps associated with this text
       (define/override (get-keymaps)
         (let ([keymap (make-object keymap%)])
@@ -41,7 +41,6 @@
       
       (super-new)))
   
-  
   ;; sets the tabbing of all of the texts in the order of the list
   (define (set-tabbing . l)
     (cond
diff --git a/collects/embedded-gui/private/verthoriz-alignment.ss b/collects/embedded-gui/private/verthoriz-alignment.ss
index cf8e967e..f8f1f00f 100644
--- a/collects/embedded-gui/private/verthoriz-alignment.ss
+++ b/collects/embedded-gui/private/verthoriz-alignment.ss
@@ -66,7 +66,7 @@
                (send child align (+ x x-offset) (+ y y-offset) w h)]))
           
           (when (and (is-shown?)
-                     (not (empty? children))
+                     (not (empty? children)); this and
                      (not (zero? width))    ; this should be handled by align later
                      (not (zero? height)))  ; this one too
             (for-each move/resize
@@ -170,7 +170,7 @@
   (define horizontal-alignment% (vert/horiz-alignment 'horizontal))
   
   #;((is-a?/c alignment%) . -> . rect?)
-  ;; makes a new default rect out of a snip
+  ;; makes a new default rect out of an alignment
   (define (build-rect item)
     (a:make-rect
      (a:make-dim 0 (send item get-min-width) (send item stretchable-width))