diff --git a/library/compiler/x86/assembler.factor b/library/compiler/x86/assembler.factor
index 0681fc9fde..ac54e3778f 100644
--- a/library/compiler/x86/assembler.factor
+++ b/library/compiler/x86/assembler.factor
@@ -146,7 +146,7 @@ M: indirect sib-present?
 
 M: register sib-present? drop f ;
 
-GENERIC: r/m
+GENERIC: r/m ( operand -- n )
 
 M: indirect r/m
     dup sib-present?
diff --git a/library/io/windows/io-internals.factor b/library/io/windows/io-internals.factor
index ace759e079..6b78d8594f 100644
--- a/library/io/windows/io-internals.factor
+++ b/library/io/windows/io-internals.factor
@@ -10,7 +10,7 @@ SYMBOL: io-queue
 TUPLE: io-queue free-list callbacks ;
 TUPLE: io-callback overlapped quotation stream ;
 
-: expected-error? ( -- bool )
+: expected-error? ( obj -- bool )
     [ 
         ERROR_IO_PENDING ERROR_HANDLE_EOF ERROR_SUCCESS WAIT_TIMEOUT 
         997
diff --git a/library/ui/windows/ui.factor b/library/ui/windows/ui.factor
index 1a467406a9..e4be50fe78 100644
--- a/library/ui/windows/ui.factor
+++ b/library/ui/windows/ui.factor
@@ -42,7 +42,7 @@ SYMBOL: class-name
     2nip
     dup { 0 0 } = [ 2drop ] [ swap window set-gadget-dim ] if ;
 
-: wm-keydown-codes ( n -- key )
+: wm-keydown-codes ( -- key )
     H{
         { 8 "BACKSPACE" }
         { 9 "TAB" }
@@ -256,7 +256,7 @@ SYMBOL: hWnd
         [ do-events ui-step ] ui-try event-loop
     ] unless ;
 
-: register-wndclassex ( classname wndproc -- )
+: register-wndclassex ( classname wndproc -- class )
     "WNDCLASSEX" <c-object>
     "WNDCLASSEX" c-size over set-WNDCLASSEX-cbSize
     CS_HREDRAW CS_VREDRAW bitor CS_OWNDC bitor over set-WNDCLASSEX-style