diff --git a/scsh/pty.scm b/scsh/pty.scm
index 68a8ccf..1ff5108 100644
--- a/scsh/pty.scm
+++ b/scsh/pty.scm
@@ -33,8 +33,8 @@
              (pty-out (dup->outport pty-in)))
         (close-input-port tty-in) 
 ;      (set-port-buffering pty-out bufpol/none)
-        (values process pty-in pty-out ttyname))))
-  )
+        (make-pty-a-tty! pty-in)
+        (values process pty-in pty-out ttyname)))))
 
 ;;; (open-pty)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -48,7 +48,6 @@
 ;;; corresponding output ports.
 
 (define (open-pty-from-devname)
-  (warn "calling open-pty-from-devname")
   (let ((next-pty (make-pty-generator)))
     (let loop ()
       (cond ((next-pty) =>