FIX: not truncating random time to seconds only

resolves: Oldes/Rebol-issues#911

Author: Oldes

src/core/t-time.c

@@ -532,7 +532,7 @@
 				Set_Random(secs);
 				return R_UNSET;
 			}
-			secs = Random_Range(secs / SEC_SEC, D_REF(3)) * SEC_SEC;
+			secs = Random_Range(secs, D_REF(3));
 			goto fixTime;
 
 		case A_PICK:

src/tests/units/time-test.r3

@@ -103,6 +103,19 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "random"
+	--test-- "random time!"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/911
+		t: random 0:0:0.10
+		--assert all [t > 0:0 t < 0:0:0.10]
+		t: random 1:0:0
+		--assert all [t > 0:0 t < 1:0:0]
+
+
+===end-group===
+
+
+
 ;===start-group=== "time protect"
 ;	;@@ https://github.com/Oldes/Rebol-issues/issues/2416
 ;	--test-- "time protect 1"