diff --git a/src/macports1.0/macports.tcl b/src/macports1.0/macports.tcl
index c3891771e0..140044af88 100644
--- a/src/macports1.0/macports.tcl
+++ b/src/macports1.0/macports.tcl
@@ -6296,8 +6296,8 @@ proc macports::get_pingtime {host} {
         variable preferred_hosts
         foreach pattern $preferred_hosts {
             if {[string match -nocase $pattern $host]} {
-                dict set host_cache $host 1
-                return 1
+                dict set host_cache $host 0.001
+                return 0.001
             }
         }
         dict set host_cache $host 0