diff --git a/samples/features/sql-big-data-cluster/app-deploy/RollDice/roll-dice.R b/samples/features/sql-big-data-cluster/app-deploy/RollDice/roll-dice.R
index f0e2002c..7d87ec8a 100644
--- a/samples/features/sql-big-data-cluster/app-deploy/RollDice/roll-dice.R
+++ b/samples/features/sql-big-data-cluster/app-deploy/RollDice/roll-dice.R
@@ -9,15 +9,20 @@
 #install.packages("TeachingDemos")
 
 rollEm <- function(numDice = 2) 
+
 {
-list.of.packages <- c("TeachingDemos")
-new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
-if(length(new.packages)) install.packages(new.packages)
+  if (numDice < 11)
+  {
+  list.of.packages <- c("TeachingDemos")
+  new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
+  if(length(new.packages)) install.packages(new.packages)
   library(TeachingDemos)
-  
-  r<-dice(ndice = numDice)
-  return(as.data.frame(r))
+    r<-dice(ndice = numDice)
+    return(as.data.frame(r))
+  }
+  else {"Oops we have not quite figued this out... number of dice need to be less than or equal to 10!"}
 }
 
+
 result<-rollEm(x)