Index: peep.scm
===================================================================
--- peep.scm	(revision 28128)
+++ peep.scm	(working copy)
@@ -77,10 +77,10 @@
 
 (when (extension-information 'readline)
   (require 'readline)
-  (unless (string=? "dumb" (getenv "TERM"))
+  (unless (string=? "dumb" (get-environment-variable "TERM"))
     (current-input-port (make-gnu-readline-port))
     (gnu-history-install-file-manager
-     (string-append (or (getenv "HOME") ".") "/.peep.history")) ) )
+     (string-append (or (get-environment-variable "HOME") ".") "/.peep.history")) ) )
 
 (define .get)
 (define .set)
@@ -233,6 +233,6 @@
    (sprintf "peep(~a)> " *current-pass*)))
 
 (cond ((file-exists? ".peeprc") (load ".peeprc"))
-      ((getenv "HOME") => 
+      ((get-environment-variable "HOME") => 
        (lambda (h)
 	 (cond ((file-exists? (make-pathname h ".peeprc")) => load) ) ) ) )