diff --git a/R/chemid.R b/R/chemid.R
index 8c917947..fd62ed23 100644
--- a/R/chemid.R
+++ b/R/chemid.R
@@ -125,7 +125,7 @@ ci_query <- function(query, from = c("rn", "inchikey"),
         physprop <- NA
       } else {
         physprop <- html_table(xml_find_all(ttt, "//h2[contains(., 'Physical Prop')]/following-sibling::div//table"))[[1]]
-        physprop[ , 'Value'] <- as.numeric(physprop[ , 'Value'])
+        physprop[ , 'Value'] <- as.numeric(unlist(physprop[ , 'Value']))
         #= same as physprop
       }