diff --git a/CHANGELOG.md b/CHANGELOG.md
index 6c77359..c549b8d 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,7 @@
 ## XAVIER development version
-
+- Bug fixes:
+  - Fix minor bug in assess_significance.R script associated with rule freec_exome_somatic (#120, @samarth8392)
+  
 ## XAVIER 3.1.1
 
 - New contributing guide available on GitHub and the documentation website. (#114, @kelly-sovacool)
diff --git a/workflow/scripts/assess_significance.R b/workflow/scripts/assess_significance.R
index e32f7f7..3e64bc4 100644
--- a/workflow/scripts/assess_significance.R
+++ b/workflow/scripts/assess_significance.R
@@ -48,7 +48,7 @@ for (i in c(1:length(cnvs[, 1]))) {
   }
   KS <- function(values, normals) {
     resultks <- try(ks.test(values, score(normals)), silent = TRUE)
-    if (class(resultks) == "try-error") {
+    if (paste(class(resultks), collapse="_") == "try-error") {
       return(list("statistic" = NA, "p.value" = NA, "alternative" = NA, "method" = NA, "data.name" = NA))
     } else {
       resultks