diff --git a/parts/scenes.lua b/parts/scenes.lua
index 8c8c3582..da2afe3c 100644
--- a/parts/scenes.lua
+++ b/parts/scenes.lua
@@ -61,6 +61,8 @@ do--calculator
 					S.val=S.val..k
 				end
 			end
+		elseif k:sub(1,2)=="kp"then
+			keyDown.calculator(k:sub(3))
 		elseif k=="."then
 			if not(find(S.val,".",nil,true)or find(S.val,"e"))then
 				if S.sym and not S.reg then