diff --git a/scsh/glob.scm b/scsh/glob.scm
index bb6253d..5cba035 100644
--- a/scsh/glob.scm
+++ b/scsh/glob.scm
@@ -158,7 +158,7 @@
 				   (char-set-copy char-set:empty)
 				   elts)))
 		   (values (re-char-set (if negate?
-					    (char-set-compelment! cset)
+					    (char-set-complement! cset)
 					    cset))
 			   i)))
 
diff --git a/scsh/newports.scm b/scsh/newports.scm
index dd0f5a2..de4f090 100644
--- a/scsh/newports.scm
+++ b/scsh/newports.scm
@@ -50,7 +50,7 @@
 ;;; This applies to input- and output-ports
 
 (define (fdport-channel-ready? fdport*)
-  (channel-ready? (fdport-data: channel fdport*)))
+  (channel-ready? (fdport-data:channel fdport*)))
 
 ;Arbitrary, for now.
 (define buffer-size 255)