diff --git a/scheme/lib/sunet-utilities.scm b/scheme/lib/sunet-utilities.scm
index ec617dd..7306d2c 100644
--- a/scheme/lib/sunet-utilities.scm
+++ b/scheme/lib/sunet-utilities.scm
@@ -33,14 +33,6 @@
 			 (format-internet-host-address host-address))))))
 
 
-(define (system-fqdn)
-  (let ((host (host-info (system-name))))
-    (let loop ((addresses (host-info:addresses host)))
-      (if (null? addresses)
-	  #f
-	  (or (dns-lookup-ip (car addresses))
-	      (loop (cdr addresses)))))))
-
 ;;; Assemble a filename from ROOT and the elts of PATH-LIST.
 ;;; If the assembled filename contains a .. subdirectory, return #f,
 ;;; otw return the filename.
diff --git a/scheme/packages.scm b/scheme/packages.scm
index b87a6af..06d8358 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -156,7 +156,6 @@
 	  dns-find-nameserver		; returns a nameserver
 	  dns-find-nameserver-list	; returns a list of nameservers
 	  socket-address->fqdn
-	  internet-address->fqdn
 	  host-fqdn
 	  system-fqdn))
 
@@ -191,7 +190,6 @@
 	  on-interrupt
 	  socket-address->string
 	  dump
-	  system-fqdn
 	  copy-inport->outport
 	  dotdot-check
 	  with-lock))