diff --git a/scsh/fname.scm b/scsh/fname.scm
index 77d4f3b..4c8d02c 100644
--- a/scsh/fname.scm
+++ b/scsh/fname.scm
@@ -128,9 +128,11 @@
 ;;; /usr/shivers/.login are not considered extensions.
 
 (define (file-name-extension-index fname)
-  (let ((dot (string-index-right fname #\.)))
+  (let ((dot (string-index-right fname #\.))
+	(slash (string-index-right fname #\/)))
     (if (and dot
 	     (> dot 0)
+	     (if slash (> dot slash) #t)
 	     (not (char=? #\/ (string-ref fname (- dot 1)))))
 	dot
 	(string-length fname))))