diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp
index 1b710a1..d2ff62d 100644
--- a/source/clog-connection.lisp
+++ b/source/clog-connection.lisp
@@ -90,7 +90,7 @@ script."
 
 (defvar *new-id* '(0) "Last issued connection or script IDs")
 
-#-(or mswindows win32 cormanlisp) ; isaac hasn't supported these platforms
+#-(or mswindows windows win32 cormanlisp) ; isaac hasn't supported these platforms
 (defparameter *isaac-ctx*
   (isaac:init-self-seed :count 5
                         :is64 #+:X86-64 t #-:X86-64 nil)
@@ -133,10 +133,10 @@ script."
 
 (defun random-hex-string ()
   "Generate cryptographic grade random ids for use in connections."
-  #+(or mswindows win32 cormanlisp) ; isaac hasn't supported these platforms. Use ironclad instead.
+  #+(or mswindows windows win32 cormanlisp) ; isaac hasn't supported these platforms. Use ironclad instead.
   (ironclad:byte-array-to-hex-string
     (ironclad:random-data 16))
-  #-(or mswindows win32 cormanlisp) ; isaac hasn't supported these platforms
+  #-(or mswindows windows win32 cormanlisp) ; isaac hasn't supported these platforms
   (format nil "~(~32,'0x~)" (#+:X86-64 isaac:rand-bits-64
                              #-:X86-64 isaac:rand-bits
                              *isaac-ctx* 128)))