diff --git a/scsh/pps/pps.scm b/scsh/pps/pps.scm
index 1a35c87..c152647 100644
--- a/scsh/pps/pps.scm
+++ b/scsh/pps/pps.scm
@@ -99,8 +99,8 @@
     (lambda (time)
       (let ((match-data (regexp-search short-rx time)))
 	(if match-data
-	    (+ (* 60 (string->number (match:substring match-data 1)))
-	       (string->number (match:substring match-data 2))
+	    (+ (* 60 60 (string->number (match:substring match-data 1)))
+	       (* 60 (string->number (match:substring match-data 2)))
 	       (quotient (string->number (match:substring match-data 3)) 50))
 	    0)))))