@@ -379,20 +379,20 @@
     b))
 
 ;; Obsolete function
 ;;
 (define (vg:generate-color)
-  (vg:rgb->number (random 255)
-                  (random 255)
-                  (random 255)))
+  (vg:rgb->number (pseudo-random-integer 255)
+                  (pseudo-random-integer 255)
+                  (pseudo-random-integer 255)))
 
 ;; Need to return a string of random iup-color for graph
 ;;
 (define (vg:generate-color-rgb)
-  (conc (number->string (random 255)) " "
-        (number->string (random 255)) " "
-        (number->string (random 255))))
+  (conc (number->string (pseudo-random-integer 255)) " "
+        (number->string (pseudo-random-integer 255)) " "
+        (number->string (pseudo-random-integer 255))))
 
 (define (vg:iup-color->number iup-color)
   (apply vg:rgb->number (map string->number (string-split iup-color))))
 
 ;;======================================================================