diff --git a/src/samplesrc/dgrtest.pla b/src/samplesrc/dgrtest.pla
index 3b69f3a..81a9cfb 100644
--- a/src/samplesrc/dgrtest.pla
+++ b/src/samplesrc/dgrtest.pla
@@ -25,7 +25,7 @@ def dgrTest
 	byte b, l, k
 	word i, j, ii, ij
 	
-	b = dgrMode
+	b = dgrMode()
 	for k = 15 downto 0
 		dgrClear(dgrbuff[0], k)
 	next