diff --git a/scsh/pps/interfaces.scm b/scsh/pps/interfaces.scm
index c0e35c1..61776d7 100644
--- a/scsh/pps/interfaces.scm
+++ b/scsh/pps/interfaces.scm
@@ -1,7 +1,7 @@
 (define-interface pps-interface
   (export  pps
 	   
-	   process-recrod?
+	   process-info?
 	   process-info-pid
 	   process-info-ppid
 	   process-info-logname
diff --git a/scsh/pps/pps.scm b/scsh/pps/pps.scm
index e983026..1a35c87 100644
--- a/scsh/pps/pps.scm
+++ b/scsh/pps/pps.scm
@@ -9,7 +9,7 @@
 			    real-uid effective-uid saved-set-uid 
 			    real-gid effective-gid saved-set-gid
 			    time tty executable command-line)
-  process-recrod?
+  process-info?
   (pid process-info-pid)
   (ppid process-info-ppid)
   (logname process-info-logname)