diff --git a/scheme/rts/eval.scm b/scheme/rts/eval.scm
index 7654b21..c8b85a3 100644
--- a/scheme/rts/eval.scm
+++ b/scheme/rts/eval.scm
@@ -32,19 +32,21 @@
 ; JMG For scsh.
 
 (define (load-into-port port p)
-  (compile-and-run-port port p
-			(lambda (template)
-			  (invoke-template template p))
-			(current-noise-port)
-			#t)); JMG whatever #t means...
+  (error "JMG: load into port called. See rts/eval"))
+ ; (compile-and-run-port port p
+;			(lambda (template)
+;			  (invoke-template template p))
+;			(current-noise-port)
+;			#t)); JMG whatever #t means...
 
 (define (load-port port . package-option)
-  (let ((p (if (null? package-option)
-	       (interaction-environment)
-	       (car package-option))))
-    (noting-undefined-variables p
-      (lambda ()
-	(load-into-port port p)))))
+  (error "JMG: load port called. See rts/eval "))
+;  (let ((p (if (null? package-option)
+;	       (interaction-environment)
+;	       (car package-option))))
+;    (noting-undefined-variables p
+;      (lambda ()
+;	(load-into-port port p)))))
 
 ;----------------