`Random[]` is not random

[rocky]

Description

Issuing Random[] does not give very random real numbers between 0 and 1.

How to Reproduce and Output given

$ mathics -e 'Table[Random[], {6}]'
{{0.}, {0.}, {4.94066×10^-324}, {0.}, {0.}, {0.}}

Expected behavior

mathics -e 'Table[Random[], {6}]'
{0.0480615, 0.0366987, 0.0705173, 0.283725, 0.84478, 0.138017}

Workarounds

Use RandomReal[] directly

Additional context

Noticed in going over the Combinatorica programs.