diff --git a/prelude.ld b/prelude.ld
index 635cebf..764669e 100644
--- a/prelude.ld
+++ b/prelude.ld
@@ -910,8 +910,8 @@ fn dist {
 fn random {
 	"Returns a random number. With zero arguments, returns a random number between 0 (inclusive) and 1 (exclusive). With one argument, returns a random number between 0 and n. With two arguments, returns a random number between m and n. Alternately, given a list, it returns a random member of that list."
 	() -> base :random ()
-	(n as :number) -> base :random (n)
-	(m as :number, n as :number) -> add (m, random (n))
+	(n as :number) -> mult (n, random ())
+	(m as :number, n as :number) -> add (m, random (sub (n, m)))
 	(l as :list) -> {
 		let i = do l > count > random > floor
 		at (l, i)