CAUTION: scheme ahead!
From (define (slime48-start . port-file) ...
Scheme list are never #f, so the test is always true: (eval (if port-file `(start-swank ,@port-file) '(slime48))
diff -ur swank-scheme48.orig/load.scm swank-scheme48/load.scm --- swank-scheme48.orig/load.scm 2005-09-19 11:55:46.000000000 -0500 +++ swank-scheme48/load.scm 2005-09-19 11:50:13.000000000 -0500 @@ -73,9 +73,9 @@ (in 'slime48 (lambda () (call-with-values (lambda () - (eval (if port-file - `(start-swank ,@port-file) - '(slime48)) + (eval (if (null? port-file) + '(slime48) + `(start-swank ,@port-file)) (interaction-environment))) (lambda (world server) (user (lambda ()