Strange PullEvent Quirk

sides = { "front", "back", "right", "left", "top", "bottom" }
glb = 0
function map(array, func)
  local new_array = {}
  for i,v in ipairs(array) do
	new_array[i] = func(v)
  end
  return new_array
end

function copy(src, target)
  print("Copying: "..src.." => "..target.."...")
  if fs.exists(src) then
	fs.copy(src, target)
  else
	print("404: Not found!")
  end
end

function clear()
  term.clear()
  term.setCursorPos(1, 1)
end

function showSelector(text, values, textFunc)
  local isSelected = false
  local cursor = 1
  local selectedValue = nil
  while not isSelected do
	local counter = 1
	clear()
print("Select " .. text .. ":")
	for i, v in pairs(values) do
	  local cursorText = "   "
	  if cursor == counter then
		cursorText = " > "
		selectedValue = v
	  end
	  counter = counter + 1
   if textFunc ~= nil then
	 print(cursorText..textFunc(v))
   else
		print(cursorText .. v)
   end
	end
glb = glb + 1
print("wait for key"..glb)
	local event, key = os.pullEvent("key")
print("key done"..glb)
	if key == keys.up then
	  if cursor > 1 then
		cursor = cursor - 1
	  end
	elseif key == keys.down then
	  if cursor < #values then
		cursor = cursor + 1
	  end
	elseif key == keys.enter then
	  isSelected = true
	end
  end
  clear()
  return selectedValue
end
function getFilesFrom()
  for i, v in pairs(installFiles.client) do
	-- get from bitbucket
	-- get from disk
	copy("/disk/"..v.name, "/"..v.name)
  end
end
function split(s)
  local result = {}
  local index = 0
  for word in string.gmatch(s, "%a+") do
	 result[index] = word
  index = index + 1
  end
  return result
end
function debugPrint(obj)
  if obj == nil then
	print("nil")
return
  end
  for i, v in obj do
	print(i.."-"..v)
  end
end
installFiles = {}
installFiles.common = {}
installFiles.client = {}
installFiles.server = {}
local values = { ["back"] = { text = "Back...", value = nil, name = nil } }
values["render"] = {text = "test", value="awesomeness", name = "render", x = 0, y = 0, maxLength = 11 }
local menues = { { text="Move Values", fn = moveValues }, { text = "Run", fn = nil } }
function moveValues()
  --[[
  showSelector does not work fine here
  --]]
  local selectedValue = showSelector("Value to move", values, function(v) return v.text end)
  while selectedValue.name ~= nil do
	local monitor = term
if selectedValue.monitor ~= nil then
   monitor = selectedValue.monitor
end
local w, h = monitor.getSize()
renderMonitor(selectedValue, monitor)
	local ready = false
while ready do
   local e, key = os.pullEvent("key")
   if key == keys.left then
	 if selectedValue.x > 1 then
	   selectedValue.x = selectedValue.x - 1
  end
   elseif key == keys.right then
	 if selectedValue.maxLength + selectedValue.x < w then
	selectedValue.x = selectedValue.x + 1
  end
   elseif key == keys.up then
	 if selectedValue.y > 1 then
	selectedValue.y = selectedValue.y - 1
  end
   elseif key == keys.down then
	 if selectedValue.y < h then
	selectedValue.y = selectedValue.y + 1
  end
   elseif key == keys.backspace then
	 ready = true
   end
   renderMonitor(selectedValue, monitor)  
end
selectedValue = showSelector("Value to move", values, function(v) return v.text end)
  end
end
function renderMonitor(movedItem, monitor)
  if monitor == nil then
	monitor = term
  end
  monitor.clear()
  print("whatever")
  for i,v in pairs(values) do
	if v.name ~=nil then
   local printChar = " "
   if movedItem then
	 printchar = "x"
   end
   monitor.setCursorPos(v.x, v.y)
   for l=1, v.maxLength do
		monitor.write(printChar)
	  end
   if not movedItem then
	 monitor.setCursorPos(v.x, v.y)
	 monitor.write(v.value)
   end
end
  end
end
function handleCommand(cmd, sender)
  if message == "server-find" then
	local label = os.getComputerLabel()
	local t = "computer"
	if turtle ~= nil then
	  t = "turtle"
	end
	if label == nil then
	  label = t..os.getComputerID()
	end
	return label
  else
	local cnf = split(line)
	if cnf[0] == "update" then
   if values[cnf[1]] == nil then
	 values[cnf[1]] = {}
  values[cnf[1]].x = 0
  values[cnf[1]].y = 0
  values[cnf[1]].visible = false
  values[cnf[1]].name = cnf[1]
  values[cnf[1]].maxLength = 0
   end
   values[cnf[1]].value = cnf[2]
   if string.len(cnf[2]) > values[cnf[1]].maxLength then
	 values[cnf[1]].maxLength = string.len(cnf[2].value)
   end
	end
  end
end
function handleKey(key)
  if key == keys.m then
  --[[
  showSelector works fine here
  --]]

	local selected = showSelector("Function", menues, function(m) return m.text end)
while selected.fn ~= nil do
   selected.fn()
   selected = showSelector("Function", menues, function(m) return m.text end)
end
  end
end
local serverConfig = {}
if fs.exists("/config") then
  local configFile = fs.open("/config", "r")
  local line = configFile.readLine()
  while line do
	local cnf = split(line)
	term.write("Reading: "..line)
	local type = cnf[0]
print(type)
if type == "modem" then
   serverConfig.modemSide = cnf[1]
end
	line = configFile.readLine()
  end
end
rednet.open(serverConfig.modemSide)
while (true) do
  event, param1, param2, param3 = os.pullEvent()
  if event == "rednet_message" then
	local sender, message, distance = param1, param2, param3
	print(message .. " from " .. sender)
	rednet.send(sender, handleCommand(message, sender))
  elseif event == "key" then
	handleKey(param1)
  end
end