diff --git a/scsh/network.scm b/scsh/network.scm
index fcb4c05..75d2b3b 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -80,11 +80,11 @@
 	 (with-errno-handler
 	  ;; ECONNABORTED we just ignore
 	  ((errno packet)
-	   ((errno/connaborted) (loop)))
+	   ((errno/connaborted) 'fick-dich-ins-knie))
 	  (call-with-values 
 	   (lambda () (accept-connection sock))
-	   proc)
-	  (loop)))))))
+	   proc))
+	 (loop))))))
 
 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 ;;; Socket Record Structure